home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  388b  |  16 lines
  1. 1 REM TURTLE-DEMO: 'DRACHEN'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 !INIT
  6. 30 INPUT"WERT L   12[157][157][157][157]";L:IFL>12THEN30
  7. 40 !GRAPHICS:!PEN0:!WALK32:!TURNL90:!WALK80:!PEN1
  8. 50 GOSUB100
  9. 60 POKE198,.:WAIT198,1:POKE198,.:!TEXT:END
  10. 100 IFL=0THEN:!WALK3:GOTO300
  11. 120 IFL<0THEN240
  12. 140 !PUSHL:L= L-1:GOSUB100:!PULLL:!TURNL90:!PUSHL:L=1-L:GOSUB100:!PULLL
  13. 190 GOTO300
  14. 240 !PUSHL:L=-1-L:GOSUB100:!PULLL:!TURNR90:!PUSHL:L=1+L:GOSUB100:!PULLL
  15. 300 RETURN
  16.